#!/usr/bin/perl
use strict;
use LWP::UserAgent;  
use HTTP::Response;  
use URI::Heuristic;
#
sub translate_to_vietnamese{
	#nếu không truyền tham số 2 thì tham số 2 trong hàm sẽ là rỗng 
	#với trang web này vẫn lấy được kết quả vì nếu truyền tham số rỗng 
	#nó sẽ lấy kết quả mới nhất trong database
	my $ua = LWP::UserAgent->new( );  
	$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.5) Gecko/2008121622 Ubuntu/8.10 (intrepid) Firefox/3.0.5"); 
	my $url = URI::Heuristic::uf_urlstr("http://translate.google.com/translate_a/t?client=t&text=$_[0]&sl=en&tl=vi");
	my $response = $ua->get($url); 
	if ($response->is_error( )) { 
		printf " %s\n", $response->status_line; 
	} else { 
		print $response->content( );
	}
}

our $texttotranslate = shift;
translate_to_vietnamese($texttotranslate);
